home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / language / embedded / m68k / tutor.arc / MTSETUP.SA < prev    next >
Text File  |  1990-01-05  |  1KB  |  38 lines
  1. MTSETUP  IDNT      1,0       MTSETUP memory test setup               11/02/81
  2.  
  3.          XDEF      MTSETUP
  4.  SPC 1
  5.          XREF      CKWADR
  6.          XREF      FNEXTF
  7.          XREF      GETA
  8.          XREF      P2PHY
  9.          XREF      SYNTAX
  10.          XREF.S    TEMP
  11.  SPC 3
  12.          SECTION   11
  13.  
  14. *
  15. * SET UP PARMS FOR BLOCK TEST AND BLOCK INITIALIZE
  16. *
  17.  SPC 1
  18. MTSETUP  DS     0
  19.          MOVE.L    A7,TEMP   STACK FOR EXCEPTION RETURN
  20.          LEA     SYNTAX(PC),A0  WHERE TO GO IF NO PARAMETERS
  21.          BSR     FNEXTF    FIND NEXT FIELD
  22.          BSR     GETA      GET ADDR1
  23.          BSR       CKWADR    CHECK WORD BOUNDRY ADDRESS
  24.          MOVE.L D0,A3        SAVE STARTING ADDRESS
  25.  SPC 1
  26.          LEA       SYNTAX(PC),A0 SET UP TO TRY "TO" ADDRESS
  27.          BSR       FNEXTF    *
  28.          BSR       GETA      GET ADDR2
  29.          BSR       CKWADR
  30.          MOVE.L D0,A1        A1 = END ADDRESS?
  31.          MOVE.L A3,A0        A0 = STARTING ADDRESS
  32.          BSR       P2PHY     DISPLAY TWO ADDRESSES
  33.          CMP.L A0,A1
  34.          BCS       SYNTAX    END ADDR TOO SMALL
  35.          ADD.L     #2,A1     ADJUST END ADDR
  36.          RTS
  37.  
  38.          END